
(map string-capitalize 
     '("test" "tEsT"))			; => ("Test" "Test")

(string-pad-right-safe "test string-pad-right-safe" 
		       32 #\!) ; => "test string-pad-right-safe!!!!!!"

(string-pad-right-safe "test string-pad-right-safe" 
		       6 #\!) ; => "test string-pad-right-safe"

(map (lambda (s) (string-abbreviate s 4))
     '("increment"
       "abbreviate" 
       "violin-1" 
       "some ridiculously long string")) ; => ("incr" "abbr" "vln1" "smss")

(string->vector "test-string")

;; => #(#\t #\e #\s #\t #\- #\s #\t #\r #\i #\n #\g)

(vector->string #(#\t #\e #\s #\t #\- #\v #\e #\c #\t #\o #\r))

;; => "test-vector"

(string->integer-vector "test-vector")	

;; => #(116 101 115 116 45 115 116 114 105 110 103)

(integer-vector->string #(116 101 115 116 45 118 101 99 116 111 114))

;; => "test-vector"

(map (lambda (n) (real->string n 2)) 
     '(2 23 234 0 .23 .1 .12 .123 .1234 123.1234))

;; => ("2.0" "23.0" "234.0" "0.0" "0.23" "0.1" "0.12" "0.12" "0.12" "123.12")

